home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_Tix.idb / usr / freeware / lib / tix4.1 / Shell.tcl.z / Shell.tcl
Encoding:
Text File  |  1999-01-26  |  886 b   |  42 lines
  1. # Shell.tcl --
  2. #
  3. #    This is the base class to all shell widget
  4. #
  5. # Copyright (c) 1996, Expert Interface Technologies
  6. #
  7. # See the file "license.terms" for information on usage and redistribution
  8. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  9. #
  10.  
  11. #
  12. # type : normal, transient, overrideredirect
  13. #
  14. tixWidgetClass tixShell {
  15.     -superclass tixPrimitive
  16.     -classname  TixShell
  17.     -flag {
  18.     -title
  19.     }
  20.     -configspec {
  21.     {-title title Title ""}
  22.     }
  23.     -forcecall {
  24.     -title
  25.     }
  26. }
  27.  
  28. #----------------------------------------------------------------------
  29. # ClassInitialization:
  30. #----------------------------------------------------------------------
  31. proc tixShell:CreateRootWidget {w args} {
  32.     upvar #0 $w data
  33.     upvar #0 $data(className) classRec
  34.  
  35.     toplevel $w -class $data(ClassName)
  36.     wm withdraw $w
  37. }
  38.  
  39. proc tixShell:config-title {w value} {
  40.     wm title $w $value
  41. }
  42.